; Improve obsolescence of 'text-mode-variant'

* lisp/textmodes/text-mode.el (text-mode-variant): Improve
obsolescence announcement text.

* doc/lispref/modes.texi (Example Major Modes): Update example.
(Bug#78125).

diff --git a/doc/lispref/modes.texi b/doc/lispref/modes.texi
index 31d420eedb69328b9cf74bd01430a349748573c5..3a6b163c81c2cf7b3e7e0967258eb647066c2175 100644 (file)
--- a/doc/lispref/modes.texi
+++ b/doc/lispref/modes.texi
@@ -1509,9 +1509,6 @@ You can thus get the full benefit of adaptive filling
  (see the variable `adaptive-fill-mode').
 \\@{text-mode-map@}
 Turning on Text mode runs the normal hook `text-mode-hook'."
-@end group
-@group
-  (setq-local text-mode-variant t)
   (setq-local require-final-newline mode-require-final-newline))
 @end group
 @end smallexample

diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el
index d918efa72c6e75bac3a81d13e8ed8ce3a21e2189..7507b7d80d1faf8e056a156418e3634d7441531e 100644 (file)
--- a/lisp/textmodes/text-mode.el
+++ b/lisp/textmodes/text-mode.el
@@ -39,7 +39,9 @@
 
 (defvar text-mode-variant nil
   "Non-nil if this buffer's major mode is a variant of Text mode.")
-(make-obsolete-variable 'text-mode-variant 'derived-mode-p "27.1")
+(make-obsolete-variable 'text-mode-variant
+                        "\
+Don't set it, and instead of testing its value use `derived-mode-p'." "27.1")
 
 ;; Actually defined in textconv.c.
 (defvar text-conversion-style)